home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 13
/
013.d81
/
disk format
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
86 lines
10 poke646,1:poke53280,0:poke53281,0:print"[147]":s$=" ":goto40
20 getjunk$:ifjunk$<>""then20
30 return
40 print" this program will format a new disk so"
50 print"that files and programs may be stored"
60 print"upon it. if this process is performed"
70 print"upon a disk which is already used for"
80 print"such storage, all information on that"
90 print"disk will be erased."
95 print" 1. continue program"
96 print" 2. exit to loadstar"
97 print"which ?";
98 poke198,0:wait198,1:geta$:ifa$<>"1"anda$<>"2"then98
99 ifa$="2"then63000
100 print:print"remove the present disk from the drive!"
110 gosub20
120 print"is the disk drive empty? (y/n)"
130 geta$:ifa$=""goto130
140 print"[147]":ifa$<>"y"goto100
150 print"the new disk should have a name of less"
160 print"than 17 characters which cannot include"
170 print"commas and quotation marks."
180 print"type the name of the disk and then pressthe return[146] key";
181 b$=""
182 geta$:ifa$=""goto182
183 ifasc(a$)=20thenprint"[147]"s$" restart"s$" ":goto150
184 ifasc(a$)=34goto205
186 ifasc(a$)=44goto205
188 ifasc(a$)=13goto192
190 printa$;:b$=b$+a$:goto182
192 iflen(b$)<17goto210
200 print"[147]";b$:print" is too long for a disk name.":goto150
205 print"[147] illegal character following ";b$;"":goto150
209 print"[147] illegal character "
210 print:print"the new disc needs an identification"
220 print"number of two characters which cannot"
230 print"include commas and quotation marks."
240 c$="":print"type the identification number"
242 geta$:ifa$=""goto242
244 ifasc(a$)=34goto209
246 ifasc(a$)=44goto209
248 c$=a$:printc$;
250 geta$:ifa$=""goto250
252 ifasc(a$)=34goto209
254 ifasc(a$)=44goto209
256 printa$
260 c$=c$+a$
270 d$="n0:"+b$+","+c$
300 print"[147] place the new disk in the drive [146]"
310 print"all information presently on the disk"
320 print"which is now in the drive will be"
330 print"erased if you press y[146]."
340 gosub20
350 print"is the new disk in the drive? (y/n)"
360 geta$:ifa$=""goto360
370 ifa$<>"y"goto300
380 print"[147] wait 80 seconds....formatting the disk "
390 open15,8,15,d$
395 input#15,er,er$,tr,se
396 ifer<>0thengosub1000:close15:goto430
400 close15
410 print"[147]this disk is ready for storage."
420 gosub20
430 print" menu "
440 print"1[146] format another disk with same name and id number"
450 print"2[146] format another disk with same name"
455 print"but different id number"
460 print"3[146] format another disk with different"
465 print"name and id number"
470 print"4[146] quit the program"
480 geta$:ifa$=""goto480
490 print"[147]":onval(a$)goto300,210,100
500 print"[147]put the loadstar disk back in the drive."
502 print" and press a key."
504 poke198,0:wait198,1:geta$
505 goto63000
506 :
1000 print"[147]we have encountered an error!"
1010 print"the error has a code of:"er
1020 print"the error message is :"er$
1030 print"please try again or use another disk."
1040 print""spc(13)"<press a key>"
1050 poke198,0:wait198,1:getm$:print"[147]";:return
63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
63010 poke631,13:poke632,13:poke198,2:end